@Info Simplified version of BlackJerk. Written by: tigrotto. Special thanks to: Daragorn

@NullResponse @RapidCodeOn
@NullResponse @CheckFlag(Black_Jerk_explained)
@NullResponse @RapidCodeOff

@RT(Since we haven't played before,, let me explain you the rules #SubName, Since it's the first time we play #BlackJerk,, let me explain the rules first, Since it's the first time we play this game,, let me explain the rules first, Before we start I'll explain the rules)

(Rules)
First thing first: you have to bet to play
You can bet just one token or all your tokens
It's up to you, but choose wisely...
Because the more you loose, the more I get to play with you after... #GrinEvil @NoTypo
The objective of the game is to beat the dealer - that's #Me - in one of the following ways:

1) Get 21 points on your first two cards-this called a "blackjack"-without a dealer blackjack
2) Reach a final score higher than the dealer without exceeding 21
3) Let the dealer draw additional cards until his hand exceeds 21

Cards have different values:
face cards-jacks, queens and kings-are counted as ten points @NoTypo
ace can count as 11 points or 1 point depending on the cards you have @NoTypo
all other cards are counted as the numeric value shown on the card @NoTypo
I will deal two cards for you and one for me
After receiving your first two cards, you add the points and then you have to decide:
"hit"-take another card-or "stand"-end turn- @NoTypo
You can "hit" as many times as you desire so long as the total is less or equal to 21 @NoTypo
After you've finished playing, I'll resolve my hand by drawing cards until the hand busts or achieves a value of 17 or higher @NoTypo
Wins who has the higher score
If you reach 21 points with the 1st and the 2nd card it is considered a "blackjack" unless I also have a "blackjack" @NoTypo
In this case the hand ties and it's known as "push" or "standoff"
Wins are paid out at 1:1, or equal to the wager, except for winning blackjacks, which are paid at 3:2 (meaning that you receive three tokens for every two bet), or one and a half times the wager. If a hand ties I will only return your bet @NoTypo
If you win I'll pay the tokens I owe you, while if I win...
Well, let's just say I don't think you'll like that part #GrinEvil
Before we start we must set a couple of parameters @NoTypo
The first is the number of @RT(hands, games) you want to play @NoTypo
Then we need to set the number of decks of cards you want to use @NoTypo
You can choose from 1 up to 8 decks of cards @NoTypo
Using fewer decks increases the likelihood of player blackjack @NoTypo
For example, if you draw a ten on your first card, the subsequent probability of drawing an ace is higher with fewer decks @NoTypo
Also, the likelihood of blackjack-blackjack push decreases in a game with fewer decks @NoTypo
So, now that you know how to play we can continue @NoTypo @SetFlag(Black_Jerk_explained)

(Black_Jerk_explained)
Do you want me to explain the rules again #SubName?
[yes] #Good @Goto(Rules)
[no] #Good @Goto(Setting_game)
@DifferentAnswer #YesorNo

(Setting_game)
How many @RT(hands,games) do you want to play #SubName? @InputVar[Number_of_hands]
How many decks do you want to use? @InputVar[Number_of_decks]

@SystemMessage Setting preferences...

(Setting/Resetting_variables)

@NullResponse @RapidCodeOn
@NullResponse @SetVar[Number_of_card_per_type]=[#Var[Number_of_decks]]
@NullResponse @ChangeVar[Number_of_card_per_type]=[4]*[Number_of_card_per_type]
@NullResponse @SetVar[Half_deck_number_of_cards]=[#Var[Number_of_decks]]
@NullResponse @ChangeVar[Half_deck_number_of_cards]=[Half_deck_number_of_cards]*[26]
@NullResponse @SetVar[01_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[02_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[03_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[04_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[05_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[06_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[07_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[08_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[09_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[10_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[Jack_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[Queen_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[King_counter]=[#Var[Number_of_card_per_type]]
@NullResponse @SetVar[01_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[01_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[01_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[01_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[02_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[02_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[02_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[02_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[03_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[03_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[03_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[03_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[04_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[04_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[04_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[04_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[05_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[05_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[05_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[05_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[06_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[06_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[06_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[06_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[07_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[07_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[07_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[07_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[08_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[08_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[08_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[08_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[09_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[09_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[09_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[09_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[10_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[10_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[10_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[10_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Jack_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Jack_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Jack_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Jack_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Queen_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Queen_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Queen_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[Queen_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[King_Clubs_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[King_Diamonds_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[King_Hearts_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[King_Spades_counter]=[#Var[Number_of_decks]]
@NullResponse @SetVar[card_dealt]=[0]
@NullResponse @RapidCodeOff

@SystemMessage System ready

Let's get started!

(New_hand)
@NullResponse @RapidCodeOn
@NullResponse @DeleteVar[Sub_number_of_cards,Sub_points,Domme_number_of_cards,Domme_points,Sub_has_ace,Domme_has_ace,Bet,Sub_win,Total_win]
@NullResponse @DeleteFlag(Domme_turn, Sub_stand, Sub_has_ace, Domme_has_ace, Sub_stand)
@NullResponse @If[Number_of_hands]=[0]Then(Game_finished)
@NullResponse @If[#BronzeTokens]=[0]Then(No_tokens_to_bet)
@NullResponse @If[card_dealt]>=[Half_deck_number_of_cards]Then(Setting/Resetting_variables)
@NullResponse @ChangeVar[Number_of_hands]=[Number_of_hands]-[1]
@NullResponse @Goto(Place_bet)
@NullResponse @RapidCodeOff

(Game_finished)
That was the last @RT(hand, game) #SubName
@RT(Well,, I think it's time for you to pay what you owe me #SubName, Well,, I think it's time for you to pay what you owe #Me, Now you have to pay what you owe #Me, Now yo have to pay me back, Now you have to pay what you owe me #SubName, Now yo have to pay me back #SubName)... #GrinEvil @Goto(Repay_Domme)

(No_tokens_to_bet)
@SystemMessage You don't have tokens to bet
You ran out of tokens #SubName
@RT(What a pity!, What a pity #SubName!, That's really a pity #SubName!, That's really a pity!, What a shame!, What a shame #SubName!) @Chance10(Free_tokens)
@RT(Well,, I think it's time for you to pay what you owe me #SubName, Well,, I think it's time for you to pay what you owe #Me, Now you have to pay what you owe #Me, Now yo have to pay me back, Now you have to pay what you owe me #SubName, Now yo have to pay me back #SubName)... @Goto(Repay_Domme)

(Free_tokens)
Since I'm having fun by now, I want you to have these 10 tokens so we can continue playing @AddTokens(10 Bronze)
Make a good use of them... #Grin @Goto(New_hand)

(Place_bet)
@SystemMessage You have #BronzeTokens bronze tokens
Place your bet #SubName @InputVar[Bet]

@NullResponse @RemoveTokens(#Var[Bet] Bronze)

(Card_shuffle)
@SystemMessage Shuffling cards... @PlayAudio[System\CardShuffle.wav]

(Card_for_Sub)
@NullResponse @Flag(Domme_turn) @DeleteFlag(Domme_turn)
@RT(Your card is a, You got a, What you got is a, The card you got is a, And your card is a)... @RTOn @Goto(Choose_card)

(Card_for_Domme)
@RT(My card is a, I got a, What I got is a, The card I got is a, And my card is a)... @RTOn @TempFlag(Domme_turn) @Goto(Choose_card)

(Choose_card)
@NullResponse @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)

(01)
@NullResponse @RapidCodeOn
@NullResponse @If[01_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[01_counter]=[01_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[11]
@NullResponse @NotFlag(Domme_turn) @TempFlag(Sub_has_ace) @ChangeVar[Sub_has_ace]=[Sub_has_ace]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[11]
@NullResponse @Flag(Domme_turn) @TempFlag(Domme_has_ace) @ChangeVar[Domme_has_ace]=[Domme_has_ace]+[1]
@NullResponse @Goto(Choose_01_suit)
@NullResponse @RapidCodeOff

(Choose_01_suit)
@NullResponse @Goto(01_Clubs, 01_Diamonds, 01_Hearts, 01_Spades)

(01_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Clubs_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of clubs @ShowImage[tgr8 images\Cards\01\ace_of_clubs.jpg] @Goto(Command_centre)

(01_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Diamonds_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of diamonds @ShowImage[tgr8 images\Cards\01\ace_of_diamonds.jpg] @Goto(Command_centre)

(01_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Hearts_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of hearts @ShowImage[tgr8 images\Cards\01\ace_of_hearts.jpg] @Goto(Command_centre)

(01_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Spades_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of spades @ShowImage[tgr8 images\Cards\01\ace_of_spades.jpg] @Goto(Command_centre)

(02)
@NullResponse @RapidCodeOn
@NullResponse @If[02_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @SetVar[02_counter]=[02_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[2]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[2]
@NullResponse @Goto(Choose_02_suit)
@NullResponse @RapidCodeOff

(Choose_02_suit)
@NullResponse @Goto(02_Clubs, 02_Diamonds, 02_Hearts, 02_Spades)

(02_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Clubs_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of clubs @ShowImage[tgr8 images\Cards\02\2_of_clubs.jpg] @Goto(Command_centre)

(02_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Diamonds_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of diamonds @ShowImage[tgr8 images\Cards\02\2_of_diamonds.jpg] @Goto(Command_centre)

(02_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Hearts_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of hearts @ShowImage[tgr8 images\Cards\02\2_of_hearts.jpg] @Goto(Command_centre)

(02_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Spades_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of spades @ShowImage[tgr8 images\Cards\02\2_of_spades.jpg] @Goto(Command_centre)

(03)
@NullResponse @RapidCodeOn
@NullResponse @If[03_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[03_counter]=[03_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[3]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[3]
@NullResponse @Goto(Choose_03_suit)
@NullResponse @RapidCodeOff

(Choose_03_suit)
@NullResponse @Goto(03_Clubs, 03_Diamonds, 03_Hearts, 03_Spades)

(03_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Clubs_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of clubs @ShowImage[tgr8 images\Cards\03\3_of_clubs.jpg] @Goto(Command_centre)

(03_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Diamonds_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of diamonds @ShowImage[tgr8 images\Cards\03\3_of_diamonds.jpg] @Goto(Command_centre)

(03_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Hearts_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of hearts @ShowImage[tgr8 images\Cards\03\3_of_hearts.jpg] @Goto(Command_centre)

(03_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Spades_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of spades @ShowImage[tgr8 images\Cards\03\3_of_spades.jpg] @Goto(Command_centre)

(04)
@NullResponse @RapidCodeOn
@NullResponse @If[04_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[04_counter]=[04_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[4]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[4]
@NullResponse @Goto(Choose_04_suit)
@NullResponse @RapidCodeOff

(Choose_04_suit)
@NullResponse @Goto(04_Clubs, 04_Diamonds, 04_Hearts, 04_Spades)

(04_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Clubs_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of clubs @ShowImage[tgr8 images\Cards\04\4_of_clubs.jpg] @Goto(Command_centre)

(04_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Diamonds_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of diamonds @ShowImage[tgr8 images\Cards\04\4_of_diamonds.jpg] @Goto(Command_centre)

(04_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Hearts_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of hearts @ShowImage[tgr8 images\Cards\04\4_of_hearts.jpg] @Goto(Command_centre)

(04_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Spades_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of spades @ShowImage[tgr8 images\Cards\04\4_of_spades.jpg] @Goto(Command_centre)

(05)
@NullResponse @RapidCodeOn
@NullResponse @If[05_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[05_counter]=[05_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[5]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[5]
@NullResponse @Goto(Choose_05_suit)
@NullResponse @RapidCodeOff

(Choose_05_suit)
@NullResponse @Goto(05_Clubs, 05_Diamonds, 05_Hearts, 05_Spades)

(05_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Clubs_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of clubs @ShowImage[tgr8 images\Cards\05\5_of_clubs.jpg] @Goto(Command_centre)

(05_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Diamonds_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of diamonds @ShowImage[tgr8 images\Cards\05\5_of_diamonds.jpg] @Goto(Command_centre)

(05_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Hearts_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of hearts @ShowImage[tgr8 images\Cards\05\5_of_hearts.jpg] @Goto(Command_centre)

(05_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Spades_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of spades @ShowImage[tgr8 images\Cards\05\5_of_spades.jpg] @Goto(Command_centre)

(06)
@NullResponse @RapidCodeOn
@NullResponse @If[06_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[06_counter]=[06_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[6]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[6]
@NullResponse @Goto(Choose_06_suit)
@NullResponse @RapidCodeOff

(Choose_06_suit)
@NullResponse @Goto(06_Clubs, 06_Diamonds, 06_Hearts, 06_Spades)

(06_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Clubs_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of clubs @ShowImage[tgr8 images\Cards\06\6_of_clubs.jpg] @Goto(Command_centre)

(06_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Diamonds_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of diamonds @ShowImage[tgr8 images\Cards\06\6_of_diamonds.jpg] @Goto(Command_centre)

(06_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Hearts_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of hearts @ShowImage[tgr8 images\Cards\06\6_of_hearts.jpg] @Goto(Command_centre)

(06_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Spades_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of spades @ShowImage[tgr8 images\Cards\06\6_of_spades.jpg] @Goto(Command_centre)

(07)
@NullResponse @RapidCodeOn
@NullResponse @If[07_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[07_counter]=[07_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[7]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[7]
@NullResponse @Goto(Choose_07_suit)
@NullResponse @RapidCodeOff

(Choose_07_suit)
@NullResponse @Goto(07_Clubs, 07_Diamonds, 07_Hearts, 07_Spades)

(07_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Clubs_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of clubs @ShowImage[tgr8 images\Cards\07\7_of_clubs.jpg] @Goto(Command_centre)

(07_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Diamonds_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of diamonds @ShowImage[tgr8 images\Cards\07\7_of_diamonds.jpg] @Goto(Command_centre)

(07_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Hearts_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of hearts @ShowImage[tgr8 images\Cards\07\7_of_hearts.jpg] @Goto(Command_centre)

(07_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Spades_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of spades @ShowImage[tgr8 images\Cards\07\7_of_spades.jpg] @Goto(Command_centre)

(08)
@NullResponse @RapidCodeOn
@NullResponse @If[08_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[08_counter]=[08_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[8]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[8]
@NullResponse @Goto(Choose_08_suit)
@NullResponse @RapidCodeOff

(Choose_08_suit)
@NullResponse @Goto(08_Clubs, 08_Diamonds, 08_Hearts, 08_Spades)

(08_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Clubs_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of clubs @ShowImage[tgr8 images\Cards\08\8_of_clubs.jpg] @Goto(Command_centre)

(08_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Diamonds_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of diamonds @ShowImage[tgr8 images\Cards\08\8_of_diamonds.jpg] @Goto(Command_centre)

(08_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Hearts_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of hearts @ShowImage[tgr8 images\Cards\08\8_of_hearts.jpg] @Goto(Command_centre)

(08_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Spades_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of spades @ShowImage[tgr8 images\Cards\08\8_of_spades.jpg] @Goto(Command_centre)

(09)
@NullResponse @RapidCodeOn
@NullResponse @If[09_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[09_counter]=[09_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[9]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[9]
@NullResponse @Goto(Choose_09_suit)
@NullResponse @RapidCodeOff

(Choose_09_suit)
@NullResponse @Goto(09_Clubs, 09_Diamonds, 09_Hearts, 09_Spades)

(09_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Clubs_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of clubs @ShowImage[tgr8 images\Cards\09\9_of_clubs.jpg] @Goto(Command_centre)

(09_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Diamonds_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of diamonds @ShowImage[tgr8 images\Cards\09\9_of_diamonds.jpg] @Goto(Command_centre)

(09_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Hearts_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of hearts @ShowImage[tgr8 images\Cards\09\9_of_hearts.jpg] @Goto(Command_centre)

(09_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Spades_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of spades @ShowImage[tgr8 images\Cards\09\9_of_spades.jpg] @Goto(Command_centre)

(10)
@NullResponse @RapidCodeOn
@NullResponse @If[10_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[10_counter]=[10_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_10_suit)
@NullResponse @RapidCodeOff

(Choose_10_suit)
@NullResponse @Goto(10_Clubs, 10_Diamonds, 10_Hearts, 10_Spades)

(10_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Clubs_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of clubs @ShowImage[tgr8 images\Cards\10\10_of_clubs.jpg] @Goto(Command_centre)

(10_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Diamonds_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of diamonds @ShowImage[tgr8 images\Cards\10\10_of_diamonds.jpg] @Goto(Command_centre)

(10_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Hearts_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of hearts @ShowImage[tgr8 images\Cards\10\10_of_hearts.jpg] @Goto(Command_centre)

(10_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Spades_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of spades @ShowImage[tgr8 images\Cards\10\10_of_spades.jpg] @Goto(Command_centre)

(Jack)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[Jack_counter]=[Jack_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_Jack_suit)
@NullResponse @RapidCodeOff

(Choose_Jack_suit)
@NullResponse @Goto(Jack_Clubs, Jack_Diamonds, Jack_Hearts, Jack_Spades)

(Jack_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Clubs_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of clubs @ShowImage[tgr8 images\Cards\11\jack_of_clubs2.jpg] @Goto(Command_centre)

(Jack_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Diamonds_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of diamonds @ShowImage[tgr8 images\Cards\11\jack_of_diamonds2.jpg] @Goto(Command_centre)

(Jack_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Hearts_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of hearts @ShowImage[tgr8 images\Cards\11\jack_of_hearts2.jpg] @Goto(Command_centre)

(Jack_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Spades_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of spades @ShowImage[tgr8 images\Cards\11\jack_of_spades2.jpg] @Goto(Command_centre)

(Queen)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[Queen_counter]=[Queen_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_Queen_suit)
@NullResponse @RapidCodeOff

(Choose_Queen_suit)
@NullResponse @Goto(Queen_Clubs, Queen_Diamonds, Queen_Hearts, Queen_Spades)

(Queen_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Clubs_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of clubs @ShowImage[tgr8 images\Cards\12\queen_of_clubs2.jpg] @Goto(Command_centre)

(Queen_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Diamonds_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of diamonds @ShowImage[tgr8 images\Cards\12\queen_of_diamonds2.jpg] @Goto(Command_centre)

(Queen_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Hearts_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of hearts @ShowImage[tgr8 images\Cards\12\queen_of_hearts2.jpg] @Goto(Command_centre)

(Queen_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Spades_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of spades @ShowImage[tgr8 images\Cards\12\queen_of_spades2.jpg] @Goto(Command_centre)

(King)
@NullResponse @RapidCodeOn
@NullResponse @If[King_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[King_counter]=[King_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_King_suit)
@NullResponse @RapidCodeOff

(Choose_King_suit)
@NullResponse @Goto(King_Clubs, King_Diamonds, King_Hearts, King_Spades)

(King_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Clubs_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of clubs @ShowImage[tgr8 images\Cards\13\king_of_clubs2.jpg] @Goto(Command_centre)

(King_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Diamonds_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of diamonds @ShowImage[tgr8 images\Cards\13\king_of_diamonds2.jpg] @Goto(Command_centre)

(King_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Hearts_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of hearts @ShowImage[tgr8 images\Cards\13\king_of_hearts2.jpg] @Goto(Command_centre)

(King_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Spades_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of spades @ShowImage[tgr8 images\Cards\13\king_of_spades2.jpg] @Goto(Command_centre)

(Command_centre)
@NullResponse @RapidCodeOn @RTOff
@NullResponse @Flag(Domme_turn) @If[Domme_number_of_cards]=[1]Then(Hit_or_stand)
@NullResponse @NotFlag(Domme_turn) @If[Sub_number_of_cards]<[2]Then(Card_for_Sub)
@NullResponse @NotFlag(Domme_turn) @If[Sub_points]>[21]Then(Sub_busted)
@NullResponse @NotFlag(Domme_turn) @If[Sub_number_of_cards]=[2]Then(Card_for_Domme)
@NullResponse @NotFlag(Domme_turn) @If[Sub_number_of_cards]>[2]Then(Hit_or_stand)
@NullResponse @Flag(Sub_stand) @If[Domme_points]<[17]Then(Card_for_Domme)
@NullResponse @Flag(Sub_stand) @If[Domme_points]>=[17]Then(Domme_hit_or_stand)
@NullResponse @RapidCodeOff

(Hit_or_stand)
#Sub_points
#Domme_points
#Ask_hit_or_stand
[hit, Hit, hit #DomHonorific, Hit #DomHonorific] Ok, pick another card #SubName... @Goto(Card_for_Sub)
[stand, Stand, stand #DomHonorific, Stand #DomHonorific] Ok, my turn then... @TempFlag(Sub_stand) @Goto(Card_for_Domme)
@DifferentAnswer #HitorStand

(Sub_busted)
@NullResponse @CheckFlag(Sub_has_ace) @Goto(Sub_busted_2)

(Sub_has_ace)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_has_ace]=[Sub_has_ace]-[1]
@NullResponse @ChangeVar[Sub_points]=[Sub_points]-[10]
@NullResponse @If[Sub_has_ace]=[0]Then(Delete_Sub_has_ace_flag)
@NullResponse @Goto(Command_centre)
@NullResponse @RapidCodeOff

(Delete_Sub_has_ace_flag)
@NullResponse @RapidCodeOn
@NullResponse @DeleteFlag(Sub_has_ace)
@NullResponse @Goto(Command_centre)
@NullResponse @RapidCodeOff

(Sub_busted_2)
@RT(You busted #SubName!, You busted #SubName, You busted!, You busted, You lost #SubName!, You lost #SubName, I won #SubName!, I won #SubName, And the winner is...#Me!)
#Sub_points
You busted, so you get busted!
Give me @ShowVar[Sub_points] #Balls bust
If it didn't hurt it doesn't count! @Wait(20)
(Ask_again_ballbusting)
Did you finished your #Balls busting #PetName?
[yes] Ok, let's move on!
[no] I'll give you few more seconds @Wait(10) @Goto(Ask_again_ballbusting)
@DifferentAnswer #YesorNo

@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Domme_hit_or_stand)
#Sub_points
#Domme_points
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]<[Sub_points]Then(Card_for_Domme)
@NullResponse @If[Domme_points]=[Sub_points]Then(Push)
@NullResponse @If[Domme_points]>[Sub_points]Then(Check_win)
@NullResponse @RapidCodeOff

(Push)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]=[21]Then(Push_blackjack)
@NullResponse @If[Domme_points]<>[21]Then(Push_confirmed)
@NullResponse @RapidCodeOff

(Push_blackjack)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_number_of_cards]=[Sub_number_of_cards]Then(Push_confirmed)
@NullResponse @If[Domme_number_of_cards]<>[Sub_number_of_cards]Then(Push_check_blackjack)
@NullResponse @RapidCodeOff

(Push_confirmed)
@RT(#Push!, #Push, Nobody won #SubName!, Nobody won #SubName, It's a #Push!, It's a #Push) @AddTokens(#Var[Bet] Bronze) @PlayAudio[System\PayoutOne.wav]
@NullResponse @Goto(New_hand)

(Push_check_blackjack)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_number_of_cards]=[2]Then(Domme_blackjack)
@NullResponse @If[Sub_number_of_cards]=[2]Then(Sub_blackjack)
@NullResponse @Goto(Push_confirmed)
@NullResponse @RapidCodeOff

(Check Domme blackjack)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_number_of_cards]=[2]Then(Domme_blackjack)
@NullResponse @If[Domme_number_of_cards]>[2]Then(Domme_won)
@NullResponse @RapidCodeOff

(Domme_blackjack)
@RT(I did #BlackJerk!, I did #BlackJerk, #BlackJerk for #Me!, #BlackJerk for #Me, I have a #BlackJerk!, I have a #BlackJerk)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Check Sub blackjack)
@NullResponse @RapidCodeOn
@NullResponse @If[Sub_number_of_cards]=[2]Then(Sub_blackjack)
@NullResponse @If[Sub_number_of_cards]>[2]Then(Domme_busted)
@NullResponse @RapidCodeOff

(Sub_blackjack)
@RT(You did #BlackJerk!, You did #BlackJerk, #BlackJerk for you!, #BlackJerk for you, You have a #BlackJerk!, You have a #BlackJerk)
@NullResponse @RapidCodeOn
@NullResponse @SetVar[Sub_win]=[#Var[Bet]]
@NullResponse @ChangeVar[Sub_win]=[Sub_win]*[3]
@NullResponse @ChangeVar[Sub_win]=[Sub_win]/[2]
@NullResponse @SetVar[Total_win]=[#Var[Bet]]
@NullResponse @ChangeVar[Total_win]=[Total_win]+[Sub_win]
@NullResponse @ChangeVar[Tokens_won]=[Tokens_won]+[Sub_win]
@NullResponse @AddTokens(#Var[Total_win] Bronze) @PlayAudio[System\PayoutBig.wav]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Check_win)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]>[21]Then(Check Domme has ace)
@NullResponse @Goto(Continue check win)
@NullResponse @RapidCodeOff
(Continue check win)
@NullResponse @RapidCodeOn
@NullResponse @If[Sub_points]=[21]Then(Check Sub blackjack)
@NullResponse @If[Sub_points]<[21]Then(Check_Domme_win)
@NullResponse @RapidCodeOff

(Check Domme has ace)
@Flag(Domme_has_ace) @NullResponse @Goto(Domme has ace)
@NotFlag(Domme_has_ace) @NullResponse @Goto(Continue check win)

(Domme has ace)
@RT(Luckily,, I have an ace!, I almost lost this one! This ace saved my ass!, I'm lucky that I picked an ace)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_has_ace]=[Domme_has_ace]-[1]
@NullResponse @ChangeVar[Domme_points]=[Domme_points]-[10]
@NullResponse @If[Domme_has_ace]=[0]Then(Delete Domme has ace flag)
@NullResponse @Goto(Checkpoint for Domme points)
@NullResponse @RapidCodeOff

(Delete Domme has ace flag)
@NullResponse @RapidCodeOn
@NullResponse @DeleteFlag(Domme_has_ace)
@NullResponse @Goto(Checkpoint for Domme points)
@NullResponse @RapidCodeOff

(Checkpoint for Domme points)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]<[17]Then(Card_for_Domme)
@NullResponse @If[Domme_points]>=[17]Then(Domme_hit_or_stand)
@NullResponse @RapidCodeOff

(Check_Domme_win)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]>[21]Then(Domme_busted)
@NullResponse @If[Domme_points]=[21]Then(Check Domme blackjack)
@NullResponse @If[Domme_points]<[21]Then(Domme_won)
@NullResponse @RapidCodeOff

(Domme_busted)
@RT(I busted!, I busted, I lost!, I lost, You won #SubName!, You won #SubName)
@NullResponse @RapidCodeOn
@NullResponse @SetVar[Sub_win]=[#Var[Bet]]
@NullResponse @SetVar[Total_win]=[#Var[Bet]]
@NullResponse @ChangeVar[Total_win]=[Total_win]+[Sub_win]
@NullResponse @ChangeVar[Tokens_won]=[Tokens_won]+[Sub_win]
@NullResponse @AddTokens(#Var[Total_win] Bronze) @PlayAudio[System\PayoutSmall.wav]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Domme_won)
@RT(I won #SubName!, I won #SubName, I won!, I won, You lost #SubName!, You lost #SubName)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Repay_Domme)
@RT(Ok,, let's see what you owe me #SubName, Ok,, let's see what you owe #Me, Ok,, you owe #Me, Ok #SubName,, you owe #Me, What you owe #Me is, What you owe #Me #SubName is)...
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_win]=[0]Then(Owe_me_nothing)
@NullResponse @If[Domme_win]>[0]Then(Owe_me_something/Offer)
@NullResponse @RapidCodeOff

(Owe_me_nothing)
...nothing!
You're lucky! You don't owe me anything! @Goto(End)

(Owe_me_something/Offer)
...@ShowVar[Domme_win] tokens!
@NullResponse @RapidCodeOn
@NullResponse @If[Tokens_won]<[Domme_win]Then(Maybe_offer)
@NullResponse @Goto(Repay_me)
@NullResponse @RapidCodeOff

(Maybe_offer)
@NullResponse @RapidCodeOn
@NullResponse @If[#Random(1,100)]<=[#Random(5,10)]Then(Offer)
@NullResponse @Goto(Repay_me)
@NullResponse @RapidCodeOff

(Offer)
@RT(I'm going to make you an offer you can't refuse #SubName!,I'm going to make you an offer you can't refuse #SubName,I'm going to make you an offer you can't refuse!,I'm going to make you an offer you can't refuse,#SubName,,I'm going to make you an offer you can't refuse!,#SubName,,I'm going to make you an offer you can't refuse)
You won @ShowVar[Tokens_won] bronze tokens
Every 2 tokens you won I'll subtract 1 from those I won
What do you say?
Do you accept my offer?
[yes] Ok, then... @Goto(Offer_accepted)
[no] If that's what you want #PetName... @Goto(Repay_me)
@DifferentAnswer #YesorNo

(Offer_accepted)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Tokens_won]=[Tokens_won]/[2]
@NullResponse @ChangeVar[Domme_win]=[Domme_win]-[Tokens_won]
@NullResponse @ChangeVar[Tokens_won]=[Tokens_won]*[2]
@NullResponse @RemoveTokens[#Var[Tokens_won] Bronze]
@NullResponse @Goto(Repay_me)
@NullResponse @RapidCodeOff

(Repay_me)
Let's see how you're #Gonna repay #Me #GeneralTime... @CheckFlag(tgr8_CAM_installed, Select_method_of_payment)
But, before we start I need you to install this interesting piece of software designed by Orion_be
It's called CAM - Computer Aided Masturbation
This software generates random stroke patterns and keeps track of stroke count
All you have to do is choose a folder and extract the .rar file
Have you already installed #CAM?
[yes] #Good. Now you will begin to repay your debts #SubName... #GrinEvil @SetFlag(tgr8_CAM_installed) @Goto(Select_method_of_payment)
[no] What are you doing still here? Go and install it #Now! @Wait(60) @Goto(Check_CAM_installation)
@DifferentAnswer #YesorNo

(Check_CAM_installation)
Have you installed CAM?
[yes] #Good @SetFlag(tgr8_CAM_installed) @Goto(Select_method_of_payment)
[no] I'll give you a few more seconds @Wait(15) @Goto(Check_CAM_installation)
@DifferentAnswer #YesorNo

(Select_method_of_payment)
@NullResponse @Goto(CAM1,CAM2,CAM3,CAM4,Edge for us,Higher card,Restrict Orgasm)

(CAM1)
@NullResponse @CallReturn(Custom\CallReturn\BlackJerk\CAM1.txt)
@NullResponse @Goto(End)
(CAM2)
@NullResponse @CallReturn(Custom\CallReturn\BlackJerk\CAM2.txt)
@NullResponse @Goto(End)
(CAM3)
@NullResponse @CallReturn(Custom\CallReturn\BlackJerk\CAM3.txt)
@NullResponse @Goto(End)
(CAM4)
@NullResponse @CallReturn(Custom\CallReturn\BlackJerk\CAM4.txt)
@NullResponse @Goto(End)
(Edge for us)
@NullResponse @CallReturn(Custom\CallReturn\BlackJerk\Edge for us.txt)
@NullResponse @Goto(End)
(Higher card)
@NullResponse @CallReturn(Custom\CallReturn\BlackJerk\Higher card.txt)
@NullResponse @Goto(End)
(Restrict Orgasm)
@NullResponse @CallReturn(Custom\CallReturn\BlackJerk\Restrict Orgasm.txt)
@NullResponse @Goto(End)

(End)
@NullResponse @RapidCodeOn
@NullResponse @DeleteVar[Number_of_hands,Number_of_decks,Number_of_card_per_type,Half_deck_number_of_cards,01_counter,02_counter,03_counter,04_counter,05_counter,06_counter,07_counter,08_counter,09_counter,10_counter,Jack_counter,Queen_counter,King_counter,01_Clubs_counter,01_Diamonds_counter,01_Hearts_counter,01_Spades_counter,02_Clubs_counter,02_Diamonds_counter,02_Hearts_counter,02_Spades_counter,03_Clubs_counter,03_Diamonds_counter,03_Hearts_counter,03_Spades_counter,04_Clubs_counter,04_Diamonds_counter,04_Hearts_counter,04_Spades_counter,05_Clubs_counter,05_Diamonds_counter,05_Hearts_counter,05_Spades_counter,06_Clubs_counter,06_Diamonds_counter,06_Hearts_counter,06_Spades_counter,07_Clubs_counter,07_Diamonds_counter,07_Hearts_counter,07_Spades_counter,08_Clubs_counter,08_Diamonds_counter,08_Hearts_counter,08_Spades_counter,09_Clubs_counter,09_Diamonds_counter,09_Hearts_counter,09_Spades_counter,10_Clubs_counter,10_Diamonds_counter,10_Hearts_counter,10_Spades_counter,Jack_Clubs_counter,Jack_Diamonds_counter,Jack_Hearts_counter,Jack_Spades_counter,Queen_Clubs_counter,Queen_Diamonds_counter,Queen_Hearts_counter,Queen_Spades_counter,King_Clubs_counter,King_Diamonds_counter,King_Hearts_counter,King_Spades_counter]
@NullResponse @DeleteVar[card_dealt,Sub_number_of_cards,Sub_points,Sub_has_ace,Domme_number_of_cards,Domme_points,Domme_has_ace,Total_win,Sub_win,Bet]
@NullResponse @DeleteFlag(Domme_turn, Sub_stand, Sub_has_ace, Domme_has_ace, Sub_stand)
@NullResponse @RapidCodeOff
@End